home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ Misc System Settings.xpl < prev    next >
Text File  |  1998-08-08  |  2KB  |  63 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="System\Misc"
  5. "NAME"="Misc Options"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Log application errors to FAULTLOG.TXT"
  8. "TEXT 2"="Beep on error"
  9. "DESCRIPTION 1"="If "Log Application errors" is activated, errors caused by applications are logged to the file FAULTLOG.TXT in your Windows directory ("C:\WINDOWS")."
  10. "DESCRIPTION 2"="If "Beep on error" is activated, Windows beeps if an error occurs."
  11. "AUTHOR"="Xteq Systems"
  12. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  13. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@gmx.net."
  14. "COMMENT 2"="Version 1.1"
  15.  
  16.  
  17. sP="HKLM\Software\Microsoft\Windows\CurrentVersion\Fault\"
  18. sP2="HKCU\Control Panel\Sound\"
  19. sWD=""
  20. sV1="LogFile"
  21. sV2="Beep"
  22.  
  23. Sub Plugin_Initialize 
  24.  sWD=GetWinDir
  25.  
  26.  s=RegReadValue(sp&sv1)
  27.  if s=sWD & "FAULTLOG.TXT" then
  28.   Call SetUIElement(1,true)
  29.  end if
  30.  
  31.  s=RegReadValue(sp2&sv2)
  32.  if UCase(s)="YES" then
  33.   Call SetUIElement(2,true)
  34.  end if
  35. End Sub
  36.  
  37. Sub Plugin_CheckData(ElementIndex)
  38. End Sub
  39.  
  40. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  b=GetUIElement(1)
  42.  if b=true then
  43.   Call RegWriteValue(sp&sv1,swd&"FAULTLOG.TXT",1)
  44.  else
  45.   i=RegReadValue(sp&sv1)
  46.   if IsEmpty(i)=false then
  47.    Call RegDeleteValue(sp&sv1)
  48.   end if
  49.  end if
  50.  
  51.  b=GetUIElement(2)
  52.  if b=true then
  53.   Call RegWriteValue(sp2&sv2,"Yes",1)
  54.  else
  55.   Call RegWriteValue(sp2&sv2,"No",1)
  56.  end if
  57.  
  58.  Restart
  59. End Sub
  60.  
  61. Sub Plugin_Terminate 
  62. End Sub
  63.